home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 16 / 64er_Magazin_Sonderheft_16_19xx_Markt__Technik_de_Side_A.d64 / ls 2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  916b  |  46 lines
  1. 100 rem vergroessern eines sprites
  2. 110 rem
  3. 120 rem spritedaten in block 128 laden
  4. 130 rem
  5. 140 for n=8192 to 8254:read q:poke n,q:next
  6. 150 data 0,160,0,2,168,0,2,145,64
  7. 160 data 2,85,64,2,85,0,0,84,0
  8. 170 data 0,208,0,0,240,0,1,124,0
  9. 180 data 5,255,0,23,255,0,23,255,64
  10. 190 data 5,255,80,1,252,80,0,168,0
  11. 200 data 0,170,0,2,250,128,10,194,128
  12. 210 data 91,2,128,92,6,128,21,69,84
  13. 220 rem *****************************
  14. 230 rem sprite verwandeln
  15. 240 rem
  16. 250 rem vorbereitungen
  17. 260 rem
  18. 270 rem farben
  19. 280 print"[147]"
  20. 290 poke53280,5:poke53281,0:poke53285,8
  21. 300 poke53286,11:poke53287,7
  22. 310 rem
  23. 320 poke53276,1:rem sprite 0 multicolor
  24. 330 poke53248,160:poke53249,120:rem anfangsposition
  25. 340 poke53269,1:rem sprite 0 an
  26. 350 rem
  27. 360 rem verwandeln
  28. 370 rem
  29. 380 z=400
  30. 390 forx=1to20
  31. 400 poke53277,1:poke53248,150
  32. 410 gosub520:rem warteschleife
  33. 420 poke53277,0:poke53248,160
  34. 430 gosub520:rem warteschleife
  35. 440 nextx
  36. 450 poke53277,1:poke53248,150
  37. 460 gett$:ift$=""then460
  38. 470 poke53277,0:poke53248,160
  39. 480 goto380
  40. 490 rem
  41. 500 rem warteschleife
  42. 510 rem
  43. 520 forw=1toz:nextw
  44. 530 z=z-40
  45. 540 return
  46.